home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / iconv8_l.arc / IDOL.ARC / BUFTEST.IOL < prev    next >
Encoding:
Text File  |  1990-03-19  |  359 b   |  20 lines
  1. # buffer classes' tests
  2.  
  3. procedure main(args)
  4.   if *args=0 then stop("usage: buftest cp file1 file2")
  5.   every i := 1 to *args do {
  6.       case args[i] of {
  7.       "cp": {
  8.           cp(args)
  9.       }
  10.       }
  11.   }
  12. end
  13. procedure cp(args)
  14.   b1 := buffer(args[2])
  15.   b2 := buffer(args[3])
  16.   b2$erase()
  17.   while s:=b1$forward() do b2$insert(s)
  18.   b2$write()
  19. end
  20.